home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / bsd / bufpol.scm next >
Text File  |  1995-10-13  |  615b  |  19 lines
  1. ;;; Flags that control buffering policy.
  2. ;;; Copyright (c) 1993 by Olin Shivers.
  3. ;;; Copyright (c) 1995 by Brian D. Carlstrom.
  4.  
  5. ;;; These are for the SET-PORT-BUFFERING procedure, essentially a Scheme
  6. ;;; analog of the setbuf(3S) stdio call. We use the actual stdio values.
  7. ;;; These constants are not likely to change from stdio lib to stdio lib,
  8. ;;; but you need to check when you do a port.
  9.  
  10. (define-syntax define-bufpols
  11.   (syntax-rules ()
  12.     ((define-bufpols form ...)
  13.      (begin (define-enum-constant "bufpol" . form) ...))))
  14.  
  15. (define-bufpols
  16.   (block    0)    ; _IOFBF
  17.   (line        1)    ; _IOLBF
  18.   (none        2))    ; _IONBF
  19.